home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Hacking & Misc / RanPassword.sit / RanPassword / RanPassword-HC / cards.xml < prev    next >
Text File  |  1995-08-19  |  7KB  |  181 lines
  1. card_2961.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2961</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_3690.pbm</bitmap>
  8.     <cantDelete> <true /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2576</owner>
  12.     <marked><true /></marked>
  13.     <link rel="stylesheet" type="text/css" href="stylesheet_3231.css" />
  14.     <part>
  15.         <id>1</id>
  16.         <type>field</type>
  17.         <visible> <true /> </visible>
  18.         <dontWrap> <false /> </dontWrap>
  19.         <dontSearch> <false /> </dontSearch>
  20.         <sharedText> <false /> </sharedText>
  21.         <fixedLineHeight> <false /> </fixedLineHeight>
  22.         <autoTab> <false /> </autoTab>
  23.         <lockText> <false /> </lockText>
  24.         <rect>
  25.             <left>151</left>
  26.             <top>0</top>
  27.             <right>256</right>
  28.             <bottom>264</bottom>
  29.         </rect>
  30.         <style>scrolling</style>
  31.         <autoSelect> <false /> </autoSelect>
  32.         <showLines> <false /> </showLines>
  33.         <wideMargins> <false /> </wideMargins>
  34.         <multipleLines> <false /> </multipleLines>
  35.         <reservedFamily> 0 </reservedFamily>
  36.         <titleWidth>0</titleWidth>
  37.         <icon>0</icon>
  38.         <textAlign>left</textAlign>
  39.         <font>Geneva</font>
  40.         <textSize>9</textSize>
  41.         <textStyle>plain</textStyle>
  42.         <textHeight>12</textHeight>
  43.         <name>thePassList</name>
  44.         <script></script>
  45.     </part>
  46.     <part>
  47.         <id>2</id>
  48.         <type>button</type>
  49.         <visible> <true /> </visible>
  50.         <reserved5> 0 </reserved5>
  51.         <reserved4> 0 </reserved4>
  52.         <reserved3> 0 </reserved3>
  53.         <reserved2> 0 </reserved2>
  54.         <reserved1> 0 </reserved1>
  55.         <enabled> <true /> </enabled>
  56.         <rect>
  57.             <left>0</left>
  58.             <top>0</top>
  59.             <right>124</right>
  60.             <bottom>51</bottom>
  61.         </rect>
  62.         <style>rectangle</style>
  63.         <showName> <true /> </showName>
  64.         <highlight> <false /> </highlight>
  65.         <autoHighlight> <true /> </autoHighlight>
  66.         <sharedHighlight> <true /> </sharedHighlight>
  67.         <family>0</family>
  68.         <titleWidth>0</titleWidth>
  69.         <icon>128</icon>
  70.         <textAlign>center</textAlign>
  71.         <font>Chicago</font>
  72.         <textSize>12</textSize>
  73.         <textStyle>plain</textStyle>
  74.         <name>Generate‚Ķ</name>
  75.         <script>on mouseUpglobal ranNum,thePass,howManyTimes,howManyLetters,theCounter,theLettersput "" into card field "thePassList"ask "How many passwords should be generated?" with 50if the result is "Cancel" or it = 0 then exit mouseUpput it into howManyTimesask "How many letters per password?" with 8if the result is "Cancel" or it = 0 then exit mouseUpput it into howManyLettersif (howManyTimes*howManyLetters)>29996 thenanswer "The amount of passwords you have specified exceeds the allowable"¬¨& " limit. Not all of them will be generated. Do you still wish to continue?"¬¨with "Yes" or "No"if it is "No" then exit mouseUpend ifput 0 into theCounterput 0 into theLettersrepeat howManyTimesput "" into thePassput 0 into theLettersrepeat while theLetters<howManyLettersput random(74)+48 into ranNumif ranNum<58 or ranNum>64 and ranNum<91 or ranNum>96 thenput numToChar(ranNum) after thePassadd 1 to theLettersset cursor to busyend ifend repeatput thePass & return after card field "thePassList"if theLetters=howManyLetters then add 1 to theCounterput "Processing: " & theCounter &"/" & howManyTimes into card field "Status"if length (card field "thePassList")>(29996-howManyLetters) thenanswer "The field is full. Only " & theCounter & " passwords were generated." with "Sorry"exit mouseupend ifend repeatput "Processing: Done" into card field "Status"end mouseUp</script>
  76.     </part>
  77.     <part>
  78.         <id>3</id>
  79.         <type>button</type>
  80.         <visible> <true /> </visible>
  81.         <reserved5> 0 </reserved5>
  82.         <reserved4> 0 </reserved4>
  83.         <reserved3> 0 </reserved3>
  84.         <reserved2> 0 </reserved2>
  85.         <reserved1> 0 </reserved1>
  86.         <enabled> <true /> </enabled>
  87.         <rect>
  88.             <left>0</left>
  89.             <top>50</top>
  90.             <right>124</right>
  91.             <bottom>99</bottom>
  92.         </rect>
  93.         <style>rectangle</style>
  94.         <showName> <true /> </showName>
  95.         <highlight> <false /> </highlight>
  96.         <autoHighlight> <true /> </autoHighlight>
  97.         <sharedHighlight> <true /> </sharedHighlight>
  98.         <family>0</family>
  99.         <titleWidth>0</titleWidth>
  100.         <icon>129</icon>
  101.         <textAlign>center</textAlign>
  102.         <font>Chicago</font>
  103.         <textSize>12</textSize>
  104.         <textStyle>plain</textStyle>
  105.         <name>Export‚Ķ</name>
  106.         <script>on mouseUpglobal aNumber,theListIsEmpty,theLengthput 1 into aNumberput "true" into theListIsEmptyput length(card field "thePassList") into theLengthrepeat theLengthif theListIsEmpty="false" then exit repeatput charToNum(character aNumber of card field "thePassList") into theCharacterif theCharacter>32 and theCharacter‚â†127 and theCharacter‚â†202 thenput "false" into theListIsEmptyend ifadd 1 to aNumberend repeatif theListIsEmpty="false" thenask file "Create a password file:" with "PasswordList"if the result is "Cancel" or it is empty then exit mouseUpput it into fileNameopen file fileNamewrite card field "thePassList" to file fileNameclose file fileNameelseanswer "There is nothing to export." with "Sorry"end ifend mouseUp</script>
  107.     </part>
  108.     <part>
  109.         <id>4</id>
  110.         <type>button</type>
  111.         <visible> <true /> </visible>
  112.         <reserved5> 0 </reserved5>
  113.         <reserved4> 0 </reserved4>
  114.         <reserved3> 0 </reserved3>
  115.         <reserved2> 0 </reserved2>
  116.         <reserved1> 0 </reserved1>
  117.         <enabled> <true /> </enabled>
  118.         <rect>
  119.             <left>0</left>
  120.             <top>98</top>
  121.             <right>124</right>
  122.             <bottom>149</bottom>
  123.         </rect>
  124.         <style>rectangle</style>
  125.         <showName> <true /> </showName>
  126.         <highlight> <false /> </highlight>
  127.         <autoHighlight> <true /> </autoHighlight>
  128.         <sharedHighlight> <true /> </sharedHighlight>
  129.         <family>0</family>
  130.         <titleWidth>0</titleWidth>
  131.         <icon>130</icon>
  132.         <textAlign>center</textAlign>
  133.         <font>Chicago</font>
  134.         <textSize>12</textSize>
  135.         <textStyle>plain</textStyle>
  136.         <name>About‚Ķ</name>
  137.         <script>on mouseUpput "Random Password Generator (HC)" & return after answerStringput "¬© 1995 Paul Schreiber <paul@magic.ca>" & return after answerStringput "version 1.1, August 19th, 1995" & return after answerStringput "This is completely free!" & return after answerStringput "No warranty!" & return after answerStringput "Commercial Distribution requires permission!" after answerStringanswer answerString with "Okay"end mouseUp</script>
  138.     </part>
  139.     <part>
  140.         <id>6</id>
  141.         <type>field</type>
  142.         <visible> <true /> </visible>
  143.         <dontWrap> <false /> </dontWrap>
  144.         <dontSearch> <false /> </dontSearch>
  145.         <sharedText> <false /> </sharedText>
  146.         <fixedLineHeight> <false /> </fixedLineHeight>
  147.         <autoTab> <false /> </autoTab>
  148.         <lockText> <true /> </lockText>
  149.         <rect>
  150.             <left>0</left>
  151.             <top>148</top>
  152.             <right>124</right>
  153.             <bottom>164</bottom>
  154.         </rect>
  155.         <style>rectangle</style>
  156.         <autoSelect> <false /> </autoSelect>
  157.         <showLines> <false /> </showLines>
  158.         <wideMargins> <false /> </wideMargins>
  159.         <multipleLines> <false /> </multipleLines>
  160.         <reservedFamily> 0 </reservedFamily>
  161.         <titleWidth>0</titleWidth>
  162.         <icon>0</icon>
  163.         <textAlign>left</textAlign>
  164.         <font>Geneva</font>
  165.         <textSize>9</textSize>
  166.         <textStyle>plain</textStyle>
  167.         <textHeight>12</textHeight>
  168.         <name>Status</name>
  169.         <script></script>
  170.     </part>
  171.     <content>
  172.         <layer>card</layer>
  173.         <id>6</id>
  174.         <text>Processing: Done</text>
  175.     </content>
  176.     <name>theCard</name>
  177.     <script></script>
  178. </card>
  179.  
  180.  
  181.